a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 
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**F ILE**1D**F ORRANDOM 
FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR AAAAAA NN NN DDDDDDDD 000000 MM MM 
FFFFFFFFFF 000000 RRRRRRRR RRRRRRRR AKAAAA NN NN DDDDDDDD 000000 MM 
FF 00 OO RR RR RR RR AA AA NN NN DD DD 00 00 MMMM MMMM 
FF 00 OO RR RR RR RR AA AA NN NN DD DD 00 00 MMMM MMMM 
FF 00 OO RR RR RR RR AA AA NNNN NN DD DD 00 00 
FF 00 0O RR RR RR RR AA AA NNNN NN DD DD 00 00 MM MM MM 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR AA AA NN NN NN DD DD 00 00 M 
FFFFFFFF 00 00 RRRRRRRR RRRRRRRR Ab AA NN NN NN DD DD 00 0O MM MM 
FF 00 OO RR RR RR RR AAAAAAAAAA = NN NNNN DD 2D 00 00 MM MM 
FF 00 OO RR RR RR RR AAAAAAAAAA § NN NNNN DD DD 90 ud =MM MM 
FF 00 OO RR RR RR RR AA AA NN NN DD DD 00 00 MM MM 
FF 00 RR RR RR RR AA AA NN NN DD DD 00 00 MM MM 
FF 000000 RR RR RR RR AA AA NN NN DDDDDDDD 000000 MA MM 
FF 000000 RR RR RR RR AA AA NN NN DDDDDDDD 000000 MM MM 
LL III] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] S$ 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III11 SSSSSSSS 
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RATIONS 
ORSRANDU and FORSRANDU_W return number as parameter 
SIRAN resulf in RO 


; 


~~ 


- 
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NDOM ; random number generator and inter ppeces 
/ 3; File: FORRANDOM.MAR Edit: S$BL100 


| Seedseunnndseoeeenneranesnennenbneesedeseeneebbinntenerebieenteseennneneneees 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® ® 
* ® 
® ® 
® ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
« INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR 'ANY. OTHER = 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
** ® 
** * 
* ® 
*® * 
*® 
**® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RRARASAARRRALARASLAASERAREALELASESESESESE RASS RRS SESE SERS ERE S ESE R RRR EERE SS 


SOOoOOoCooooooooooooooooooooooo 
SOoOoOCOCOOCOCOOCOCOOCOOOOOOOOoOoOoOOo 
pepe leloleleleleoleloleleoleleloleolololeololeolol slolelolo) 


FACILE TY: FORTRAN SYSTEM LIBRARY 
"ABSTRACT: 
Provide entry points for: 
FORS{RAN 
FORSRANDU_W 


The algorithm used is copied execely from PDP-11 FORTRAN 
Library so the same sequences will be generated. 


VERSION: 1-001 
HISTORY: 


AUTHOR: 
Jonathan M. Taylor, 12-Aug-77: Version 0 


MODIFIED BY: 


SOOSCSOOCSOOSOOSOSOSOSOOSOSOOSOSOSOSOOOSOOCSOOOOVDOOOCOOOOOOCOOOOOOOOOO 


SOOoooooooooooooooooooosoo 
OOD NAUE WN HO OOO NAME WN (OO ONAUES WN O ODNAUS WN OOONOUS wr 


SPU BBB BBE EE EWN NWN NI NII AID PIPONIPONPNINIDY 2 2 OO OO Oe 


SOOCCCOCOCCOCOOCOOCOoOOoOoOooooo 


SOCoOooooooooooooooooooooo 


— Ahn an am 


2 4 BOTA DADO iT 


= — —_ —a i 
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1-003 HISTORY ; Detailed Current Edit History 6-SEP-1984 10:58:49 CFORRTL.SRCJFORRANDOM.MAR; 1 (2) 
000 3 SBTTL HISTORY ; Detailed Current Edit History 
0 0 4 ; Edit History for Version 0 of FORSRANDOM 
0 6 § ; 0-3 = use word offset to call for$JRAN TNH 16-SEP-77 
000 57 ; 0-4 = add a bug from 11 routine to make compatible: 
0000 28 ; = now tests only second parameter for 0 Chirss call), 
0000 3 - instead of concatenated longword JMT 6-0CT-77 
0000 60 ; 9-3 - JRAN is now passed only one longword arg. JMT 9-0ct-77 
4 61 ; 0-6 = Copy back seed as 2 words or 1 [ong word. TNH 14-Nov-77 
000 6¢ ; 0-9 = Remove FORSJRAN which is no Longer supported. 
0000 65 ; FORTRAN compiler now generates calls to MTH$RANDOM. JMT 4-Jan-78 
0000 64 ; 0-10 = Bug fix 0-4 didn't break my code enoygn to be 
0000 65 3 compatable with the 11. JMT 16-Feb- 
0000 66 ; 0-11 = Remove FORSFLAG_JACKET. TNH 11-July-78 
0000 67 ; 1-001 - Update version number and copyright notice. JBS 16-NOV-78 
0000 68 ; I=o8 - Add ' to the PSECT directive. JBS 22-DEC-78 
0000 69 ; 1-003 = Use .ENTRY. SBL 1-Jul-1983 
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1-003 DECLARATIONS 6-SEP=1984 10:58:49 CFORRTL 


~SBTTL DECLARATIONS 


Macro V04-00 Page 3 
« SRCJFORRANDOM.MAR; 1 (3). 


: INCLUDE FILES: 
; oerr.mar 


; EXTERNAL SYMBOLS: 


; MACROS: 


WR O OONAUES WN O OONOUS wr 
. 


; PSECT DECLARATIONS: 
0000 -PSECT _FORSCODE PIC, SHR, EXE, LONG, NOWRT 
; EQUATED SYMBOLS: 
00000004 al = 4 ; offset into AP of address of arg! 
00000008 a2 = 8 ; offset into AP of address of ange 
0000000C a3 = 12 ; (optional) offset into AP of add- 
; ress of output 


pepo fe fololofo lo lole lol elololelolololeoloeloiolo) 
SCOQoOooooQoooooQoooooooooooooooo 
pole leleleleoleleleleleloleleleleleleleleloleleleleololola) 
0000000000900 0009000909090 09 08 NI NINN 
ONOUS 


OWN STORAGE: 
NONE 


ee De ee ee NT ee a 
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1-003 FORSRANDU and FORSRANDU_W return number 6-SEP-1984 10:58:49 FORRTL.SRCJFORRANDOM.MAR; 1 
~SBTTL FORSRANDU and FORSRANDU_W return number as parameter 


soe 
3 FUNCTIONAL DESCRIPTION: 


CALLS FORSIRAN to get a random number and returns it in 
third parameter. 


CALLING SEQUENCE: 
CALL FORSRANDU (gen_base_1.ml.r, gen_base_2.ml.r, 
random_fraction.wf.r) 


CALL FORSRANDU_W (gen_base_1.mw.r, gen_base_2.mw.r, 
random_fraction.wf.r) 


OOCCOOCCOOO 
oO 


OONAOUS Ww — 


oO 
jojo lejlejleleolelelelolea) 
pele loleleleleleolelolo) 


INPUT PARAMETERS: 


gen_base_1 seedi for algorithm 

gen_base_2 seed2 for algorithm 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
random_fraction floating point result is 
between 0 and 1 


SOCSCSOOCSOOOOOCOOSCOOOOOOCOOOCOOoOSoO 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


FORSRANDU_W: : 


NOOO OCOCOCOCOO COCO OOCOOOOOOOO OOOO OOO 
kk ak tk th tk a 


H&E AANA AWI WAI IPONPONONONOPNA SIV OO st ee 


SoOOOSOSOOOOOOOOOSOOOSOOOOOOOOOOOOOOOOOOOOOO 


SOOCooooooooCoooo°oo 
WO ODNAUE WN O OONOAU EWN OC OONOUS WMO 


SSVSSsSsssssssssssssssssssssssssss 


0000 ENTRY FORSRANDU, “M<> 
OOOC'CF 6C FA CALLG (AP), W*FORSIRAN ; RO = floating result 
Oc BC 50 3 or RO, aa3(AP) ; return as third parameter 


Page 


4 
(4) 
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1-003 FORSIRAN resul 8:49 CFORRTL.SRCJFORRANDOM.MAR; 1 (5) 


C 145 -SBTTL FORSIRAN result in RO 
te 
a8¢ 148 > FUNCTIONAL DESCRIPTION: 
OC 150; SEED = argl,ar 2. 
00C 184 3 rg2 <z, th : ; first call only 
00C 13 ; Seen : aes + *3) 
0O0C 153; argh .arge = SEED etern for later calls 
5 : 138 ; = SEED normalized to floating point 
0 ¢ 136 : CALLING SEQUENCE: 
SC cia 2 Random_fraction.wf.v = FORSIRAN (gen_base_1.mw.r 
Boe 138 ; gen_base_2.mw.r) 
00C 160 : INPUT PARAMETERS: 
OOC 161 ; gen_base_1 seed! for algorithm 
Be 136 : gen_base_2 seed2 for algorithm 
0OC 164 : IMPLICIT INPUTS: 
OOF 166 — 
900¢ 167 : OUTPUT PARAMETERS: 
SE Sat 
000C 170 : IMPLICIT OUTPUTS: 
i ih io 
000C 198 > COMPLETION CODES: 
SS AN fos, 
000C 176 ; SIDE EFFECTS: 
Oo0e 178 — 
000C 179 : FUNCTIONAL VALUE: 
000C 180 ; A floating-point value between 0 and 1 
QO00C 181 ;-- 
000C 13 
at 
0000 000C 185 ENTRY Ath Hy ymg “M<> 
50 04 8C~ 8B0 bo45 186 MOV @al(AP), RO ; RO = arg! 
50 . 10 45 Bate + oor rig RO: Re 3 bui lg a longword value 
os SO1R 189 : : NOTE: PDP=-11 algorithm only checks 
OO1A 190 ; bits 15:0 for o so VAX is compatibile 
35 13 Bota 191 BEQL 20% 3 branch if firs *3) 
51 50 00010003 8F C5 OOIC 136 MULL3 A as RO, R1 $ RO * (20216023) SEED 
00 51 7 Ss 8058 19 BBCC + ion 15$ : aoa sure SEED pos itive 
4E b9 ; 13e 15$ CVILF : 2 ri rheating (35 EED) binary point 
50 00003100 8F 44 009 ioe MULF satan. RO : R ant, 2tt- ‘, = normalized, binary poin 
$03 198 : te f ri e ‘of y ime result 
3 cating point resu 
08 eC 51 BO a0 50 Movw RT, @a2(AP) J new seed,” of seed 
a : return s 15: ee 
51 a 10 9C ist4 $6 ROTL #ié, R1, R1 3 seed<31:16> to R1<15:0> 


04 BC 
50 4 
1 


51 


: 


random number 
for IRAN resul 


Be O08 
C F 
8 28 5 
D 4 0 
11 4¢ 
O4E 8 
Q04E 09 
004E 10 


enera 
in R 


$f 20S: 
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MOVW R1, @al (AP) 
ADDL #*x10000, RO 
ROVE +e at 

B RO. 


“1982 10:58:08 


: return bi 
; return wi 


X/VM 
ORR 
t 


t 


S 
The 
s 3 
hR 
a 


; this is what 


Ma 
5R 
1 
0 
t 


h 


ro 
JF 
6 


RCIF 


1 
af 
e 1 


0 
fe) 
L 
1 


Vv 
R 
f 
) 
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seed as first arg 
ating random number 


did! 
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5-S60-1986 $3:33:13 pears Macro v04-00 Page 7 
Symbol table 6-SEP-1984 :58:49 CFORRTL.SRCJFORRANDOM.MAR; 1 (5) 
Al = 4 

‘ = 000 8 

A = C 

FORS IRAN 0 RG 1 

FORSRANDU 0000 RG 1 

FORSRANDU_W 000000 RG 1 

¢ownmoae seeececeeee wes 


! ; Psect synopsis ! 
+ 


PSECT name Allocation PSECT No. Attributes 
ABS 00000000 ” 0.) O0O¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
“ FORSCODE QOOOOO04E ( 78.) O1¢ 1.) PIC USR CON PEL LCL SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 
Initialization 4 00:00:00.08 00:00:00.35 
Command processing 120 00:00:00.50 00:00:02.42 
Pass 1 68 00:00:00.59 00:00:01.29 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 50 00:00:00.44 00:00:01.94 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 274 00:00:01.64 00:00:06.03 


The working set Limit was 900 pages. 

2400 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 2 Local symbols. 
210 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


eee eee som eee eeees seeeeoee} 


Macro Library name Macros defined 
“$255$DUAZB:CSYSLIBISTARLET.MLB;2  ( (itit‘(‘~;~;S;*~™ o- 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORRANDOM/OBJ=OBJ$:FORRANDOM MSRC$:F ORRANDOM/UPDATE = (ENHS: F ORRANDOM) 
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